program ejercicio1
	integer::i
	real(kind=4)::x1
	real(kind=8)::x2
	real(kind=4)::x3
	real(kind=8)::x4
	x1=0.25_4
	x2=0.25_8
	x3=0.4_4
	x4=0.4_8
	do i=2,1000000,1
		x1=x1+0.25_4
		x2=x2+0.25_8
		x3=x3+0.4_4
		x4=x4+0.4_8
	end do
	print *,'0.25 en simple',x1
	print *,'0.25 en doble',x2
	print *,'0.4 en simple',x3
	print *,'0.4 en doble',x4
end program


